Namespace CapaDeNegocio
    Public Class Historial

        Private strIdHistorial As String
        Private strNumeroPaciente As String
        Private strFechaApertura As String
        Private strFechaFin As String
        Private strMotivoBaja As String
        Private dblPeso As Double 'VER DE QUE TIPO TIENE QUE SER ESTE
        Private strEstado As String
        Private objPaciente As CapaDeNegocio.Paciente
        Private objProtocolo As CapaDeNegocio.PlanProtocolo

        Public Property idHistorial() As String
            Get
                Return strIdHistorial
            End Get

            Set(ByVal value As String)
                strIdHistorial = value
            End Set
        End Property

        Public Property numeroPaciente() As String
            Get
                Return strNumeroPaciente
            End Get

            Set(ByVal value As String)
                strNumeroPaciente = value
            End Set
        End Property

        Public Property fechaApertura() As String
            Get
                Return strFechaApertura
            End Get

            Set(ByVal value As String)
                strFechaApertura = value
            End Set
        End Property

        Public Property fechaFin() As String
            Get
                Return strFechaFin
            End Get

            Set(ByVal value As String)
                strFechaFin = value
            End Set
        End Property

        Public Property motivoBaja() As String
            Get
                Return strMotivoBaja
            End Get

            Set(ByVal value As String)
                strMotivoBaja = value
            End Set
        End Property

        Public Property peso() As Double
            Get
                Return dblPeso
            End Get

            Set(ByVal value As Double)
                dblPeso = value
            End Set
        End Property

        Public Property estado() As String
            Get
                Return strEstado
            End Get

            Set(ByVal value As String)
                strEstado = value
            End Set
        End Property

        Public Property paciente() As CapaDeNegocio.Paciente
            Get
                Return objPaciente
            End Get

            Set(ByVal value As CapaDeNegocio.Paciente)
                objPaciente = value
            End Set
        End Property

        Public Property protocolo() As CapaDeNegocio.PlanProtocolo
            Get
                Return objProtocolo
            End Get

            Set(ByVal value As CapaDeNegocio.PlanProtocolo)
                objProtocolo = value
            End Set
        End Property

    End Class
End Namespace


